U_PWDEXP   VARIABLE

 Function
  Allow reading and writing of the current users password expiration date.

 Type & Value
  DATE
  The current users password expiration date.

 Remarks
  This DATE is set with information from the current users record when
  the GETUSER statement is executed.  It may then be changed and written
  back to the users record with the PUTUSER statement.  Note that it is
  undefined until a GETUSER statement is processed and that changes are
  not written until a PUTUSER statement is processed.  Additionally, it
  will only have meaningful information if the password PSA is installed.
  The existence of the password PSA may be checked with the PSA() function.

 Examples

  IF (PSA(4)) THEN
    GETUSER
    PRINTLN U_PWDEXP-DATE()," until current password expiration"
    LET U_PWDEXP = DATE()+30
    PRINTLN "You now have 30 days until you *MUST* change you password."
    PUTUSER
  ENDIF